Option Explicit
Sub G_Sample008()
    Dim myShp As Shape
    Dim mySht As Worksheet
    Dim myTfr As TextFrame
    Dim myStr As String
    Set mySht = Worksheets.Add				'u@sW
    myStr = "rr"					'wr
    'sWAutoshape
    Set myShp = mySht.Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=100, Top:=100, Width:=100, Height:=100)
    Set myTfr = myShp.TextFrame
    myTfr.Characters.Text = myStr
    Set myTfr = Nothing					'
    Set myShp = Nothing
    Set mySht = Nothing
End Sub
